perm filename CYCOMA.LAP[1,LMM]3 blob
sn#034819 filedate 1973-04-12 generic text, type T, neo UTF8
(DECIMAL)
(COMMENT GENLISP 0 SHOULD BE IN FORLSP BUT 0 0 0)
(LAP MAX SUBR)
(PUSH P 1)
(PUSH P 2)
(CALL 2 (E *GREAT))
(JUMPE 1 TAG2)
(MOVE 1 -1 P)
(JRST 0 TAG1)
TAG2 (MOVE 1 0 P)
TAG3
TAG1 (SUB P (C 0 0 2 2))
(POPJ P)
NIL
(LAP FIX+ SUBR)
(MOVEI 2 (QUOTE 0.99000000))
(CALL 2 (E *PLUS))
(JCALL 1 (E FIX))
NIL
(LAP MAXLIST SUBR)
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE -99999) 0))
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (MOVE 1 -1 P)
(JUMPE 1 TAG4)
(HLRZ@ 1 1)
(MOVE 2 -2 P)
(MOVEM 1 0 P)
(CALL 2 (E MAX))
(MOVEM 1 -2 P)
TAG2
TAG3 (HRRZ@ 1 -1 P)
(MOVEM 1 -1 P)
(JRST 0 TAG1)
TAG4 (MOVE 1 -2 P)
(SUB P (C 0 0 4 4))
(POPJ P)
NIL
(LAP TWICE SUBR)
(MOVE 2 1)
(JCALL 2 (E *PLUS))
NIL
(LAP CARLIST SUBR)
(PUSH P 1)
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (MOVE 1 -2 P)
(JUMPE 1 TAG4)
(HLRZ@ 1 1)
(MOVEM 1 -1 P)
(PUSH P (C 0 0 TAG9 0))
(PUSH P -1 P)
(HLRZ@ 1 1)
(CALL 1 (E NCONS))
(PUSH P 1)
(MOVNI 6 2)
(JCALL 14 (E NCONC))
TAG9 (MOVEM 1 0 P)
TAG2
TAG3 (HRRZ@ 1 -2 P)
(MOVEM 1 -2 P)
(JRST 0 TAG1)
TAG4 (MOVE 1 0 P)
(SUB P (C 0 0 4 4))
(POPJ P)
NIL
(LAP CDRLIST SUBR)
(PUSH P 1)
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (MOVE 1 -2 P)
(JUMPE 1 TAG4)
(HLRZ@ 1 1)
(MOVEM 1 -1 P)
(PUSH P (C 0 0 TAG9 0))
(PUSH P -1 P)
(HRRZ@ 1 1)
(CALL 1 (E NCONS))
(PUSH P 1)
(MOVNI 6 2)
(JCALL 14 (E NCONC))
TAG9 (MOVEM 1 0 P)
TAG2
TAG3 (HRRZ@ 1 -2 P)
(MOVEM 1 -2 P)
(JRST 0 TAG1)
TAG4 (MOVE 1 0 P)
(SUB P (C 0 0 4 4))
(POPJ P)
NIL
(LAP LCARLIST SUBR)
(PUSH P 1)
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (MOVE 1 -2 P)
(JUMPE 1 TAG4)
(HLRZ@ 1 1)
(MOVEM 1 -1 P)
(PUSH P (C 0 0 TAG9 0))
(PUSH P -1 P)
(CALL 1 (E CARLIST))
(CALL 1 (E NCONS))
(PUSH P 1)
(MOVNI 6 2)
(JCALL 14 (E NCONC))
TAG9 (MOVEM 1 0 P)
TAG2
TAG3 (HRRZ@ 1 -2 P)
(MOVEM 1 -2 P)
(JRST 0 TAG1)
TAG4 (MOVE 1 0 P)
(SUB P (C 0 0 4 4))
(POPJ P)
NIL
(LAP LCDRLIST SUBR)
(PUSH P 1)
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (MOVE 1 -2 P)
(JUMPE 1 TAG4)
(HLRZ@ 1 1)
(MOVEM 1 -1 P)
(PUSH P (C 0 0 TAG9 0))
(PUSH P -1 P)
(CALL 1 (E CDRLIST))
(CALL 1 (E NCONS))
(PUSH P 1)
(MOVNI 6 2)
(JCALL 14 (E NCONC))
TAG9 (MOVEM 1 0 P)
TAG2
TAG3 (HRRZ@ 1 -2 P)
(MOVEM 1 -2 P)
(JRST 0 TAG1)
TAG4 (MOVE 1 0 P)
(SUB P (C 0 0 4 4))
(POPJ P)
NIL
(LAP COPY SUBR)
(PUSH P 1)
(CALL 1 (E ATOM))
(JUMPE 1 TAG2)
(MOVE 1 0 P)
(JRST 0 TAG1)
TAG2 (HLRZ@ 1 0 P)
(CALL 1 (E COPY))
(PUSH P 1)
(HRRZ@ 1 -1 P)
(CALL 1 (E COPY))
(POP P 2)
(CALL 2 (E XCONS))
TAG3
TAG1 (SUB P (C 0 0 1 1))
(POPJ P)
NIL
(LAP NTH SUBR)
(PUSH P 1)
(PUSH P 2)
(MOVEI 2 (QUOTE 1))
(MOVE 1 0 P)
(CALL 2 (E EQUAL))
(JUMPE 1 TAG6)
(MOVE 1 -1 P)
(JRST 0 TAG5)
TAG6 (MOVE 1 -1 P)
(CALL 1 (E LENGTH))
(MOVE 2 0 P)
(CALL 2 (E *LESS))
(JUMPE 1 TAG7)
(MOVE 1 -1 P)
(CALL 1 (E NCONS))
(MOVEI 2 (QUOTE (TO HIGH FOR NTH OF)))
(CALL 2 (E XCONS))
(MOVE 2 0 P)
(CALL 2 (E XCONS))
(MOVEI 2 (QUOTE ARGUMENT))
(CALL 2 (E XCONS))
(CALL 1 (E PRINT))
(MOVEI 1 (QUOTE NIL))
(JRST 0 TAG5)
TAG7 (PUSH P (C 0 0 (QUOTE 2) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (MOVE 2 -2 P)
(MOVE 1 -1 P)
(CALL 2 (E *GREAT))
(JUMPN 1 TAG4)
(HRRZ@ 1 -3 P)
(MOVEM 1 -3 P)
(MOVEM 1 0 P)
TAG2
TAG3 (MOVEI 2 (QUOTE 1))
(MOVE 1 -1 P)
(CALL 2 (E *PLUS))
(MOVEM 1 -1 P)
(JRST 0 TAG1)
TAG4 (MOVE 1 0 P)
(SUB P (C 0 0 2 2))
TAG8
TAG5 (SUB P (C 0 0 2 2))
(POPJ P)
NIL
(LAP DIFF SUBR)
(PUSH P 1)
(PUSH P 2)
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (MOVE 1 -2 P)
(JUMPE 1 TAG4)
(HLRZ@ 1 1)
(MOVEM 1 -1 P)
(MOVE 2 -3 P)
(CALL 2 (E MEMBER))
(JUMPN 1 TAG3)
(MOVE 2 0 P)
(MOVE 1 -1 P)
(CALL 2 (E CONS))
(MOVEM 1 0 P)
TAG2
TAG3 (HRRZ@ 1 -2 P)
(MOVEM 1 -2 P)
(JRST 0 TAG1)
TAG4 (MOVE 1 0 P)
(SUB P (C 0 0 5 5))
(POPJ P)
NIL
(LAP PLUSLIST SUBR)
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE 0) 0))
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (MOVE 1 -1 P)
(JUMPE 1 TAG4)
(HLRZ@ 1 1)
(MOVE 2 -2 P)
(MOVEM 1 0 P)
(CALL 2 (E *PLUS))
(MOVEM 1 -2 P)
TAG2
TAG3 (HRRZ@ 1 -1 P)
(MOVEM 1 -1 P)
(JRST 0 TAG1)
TAG4 (MOVE 1 -2 P)
(SUB P (C 0 0 4 4))
(POPJ P)
NIL
(LAP MIN SUBR)
(PUSH P 1)
(PUSH P 2)
(CALL 2 (E *GREAT))
(JUMPE 1 TAG2)
(MOVE 1 0 P)
(JRST 0 TAG1)
TAG2 (MOVE 1 -1 P)
TAG3
TAG1 (SUB P (C 0 0 2 2))
(POPJ P)
NIL
(LAP LMASSOC SUBR)
(PUSH P 1)
(PUSH P 2)
(PUSH P 3)
(PUSH P 2)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (MOVE 1 -2 P)
(JUMPE 1 TAG4)
(HLRZ@ 1 1)
(MOVEM 1 -1 P)
(MOVE 2 -5 P)
(HLRZ@ 1 1)
(CALL 2 (E EQUAL))
(JUMPE 1 TAG10)
(HRRZ@ 1 -1 P)
(MOVEM 1 -3 P)
(JRST 0 TAG5)
TAG10
TAG2
TAG3 (HRRZ@ 1 -2 P)
(MOVEM 1 -2 P)
(JRST 0 TAG1)
TAG4 (MOVE 1 0 P)
TAG5 (EXCH 1 -3 P)
(SUB P (C 0 0 6 6))
(POPJ P)
NIL
(COMMENT PARTITIONERS AND CL FUNCTIONS)
(LAP NUMPARTITIONS SUBR)
(PUSH P 1)
(PUSH P 2)
(PUSH P 3)
(PUSH P 4)
(MOVEI 2 (QUOTE 1))
(MOVE 1 -2 P)
(CALL 2 (E EQUAL))
(JUMPE 1 TAG9)
(MOVE 2 -3 P)
(MOVE 1 -1 P)
(CALL 2 (E *GREAT))
(JUMPN 1 TAG12)
(MOVE 2 -3 P)
(MOVE 1 0 P)
(CALL 2 (E *LESS))
(JUMPE 1 TAG11)
TAG12 (MOVEI 1 (QUOTE NIL))
(JRST 0 TAG10)
TAG11 (MOVE 1 -3 P)
(CALL 1 (E NCONS))
(CALL 1 (E NCONS))
TAG13
TAG10 (JRST 0 TAG8)
TAG9 (MOVE 2 -2 P)
(MOVE 1 -3 P)
(CALL 2 (E *QUO))
(MOVE 2 1)
(MOVE 1 0 P)
(CALL 2 (E MIN))
(PUSH P 1)
(MOVE 1 -3 P)
(CALL 1 (E SUB1))
(MOVE 2 -1 P)
(CALL 2 (E *TIMES))
(MOVE 2 1)
(MOVE 1 -4 P)
(CALL 2 (E *DIF))
(MOVE 2 1)
(MOVE 1 -2 P)
(CALL 2 (E MAX))
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (MOVE 2 -4 P)
(MOVE 1 -3 P)
(CALL 2 (E *GREAT))
(JUMPN 1 TAG7)
(MOVE 2 -3 P)
(MOVE 1 -8 P)
(CALL 2 (E *DIF))
(PUSH P 1)
(MOVE 1 -8 P)
(CALL 1 (E SUB1))
(MOVE 4 -6 P)
(MOVE 3 -4 P)
(MOVE 2 1)
(POP P 1)
(CALL 4 (E NUMPARTITIONS))
(MOVEM 1 -1 P)
TAG2 (MOVE 1 -1 P)
(JUMPE 1 TAG5)
(HLRZ@ 1 1)
(MOVEM 1 -2 P)
(PUSH P (C 0 0 TAG22 0))
(PUSH P -1 P)
(MOVE 2 -5 P)
(CALL 2 (E XCONS))
(CALL 1 (E NCONS))
(PUSH P 1)
(MOVNI 6 2)
(JCALL 14 (E NCONC))
TAG22 (MOVEM 1 0 P)
TAG3
TAG4 (HRRZ@ 1 -1 P)
(MOVEM 1 -1 P)
(JRST 0 TAG2)
TAG5
TAG6 (MOVEI 2 (QUOTE 1))
(MOVE 1 -3 P)
(CALL 2 (E *PLUS))
(MOVEM 1 -3 P)
(JRST 0 TAG1)
TAG7 (MOVE 1 0 P)
(SUB P (C 0 0 5 5))
TAG15
TAG8 (SUB P (C 0 0 4 4))
(POPJ P)
NIL
(LAP SUBFUN1CLPARTITIONS SUBR)
(MOVEI 2 (QUOTE NIL))
(JCALL 2 (E XCONS))
NIL
(LAP CLPARTITIONS SUBR)
(PUSH P 1)
(PUSH P 2)
(JUMPN 2 TAG24)
(MOVEI 1 (QUOTE NIL))
(CALL 1 (E NCONS))
(JRST 0 TAG23)
TAG24 (HRRZ@ 1 2)
(JUMPN 1 TAG25)
(MOVE 1 -1 P)
(CALL 1 (E NCONS))
(CALL 1 (E NCONS))
(JRST 0 TAG23)
TAG25 (HLRZ@ 1 2)
(CAIE 1 (QUOTE 0))
(JRST 0 TAG26)
(HRRZ@ 2 2)
(MOVE 1 -1 P)
(CALL 2 (E CLPARTITIONS))
(MOVE 2 1)
(MOVEI 1 (QUOTE SUBFUN1CLPARTITIONS))
(CALL 2 (E MAPCAR))
(JRST 0 TAG23)
TAG26 (HRRZ@ 2 2)
(HLRZ@ 2 2)
(HLRZ@ 1 0 P)
(CALL 2 (E EQUAL))
(JUMPE 1 TAG27)
(PUSH P (C 0 0 (QUOTE 1) 0))
(HLRZ@ 1 -1 P)
(PUSH P 1)
(HRRZ@ 1 -2 P)
(MOVEM 1 -2 P)
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (MOVE 1 -3 P)
(JUMPE 1 TAG4)
(MOVE 2 -1 P)
(HLRZ@ 1 1)
(CALL 2 (E EQUAL))
(JUMPE 1 TAG4)
(MOVE 1 -2 P)
(CALL 1 (E ADD1))
(MOVEM 1 -2 P)
TAG2
TAG3 (HRRZ@ 1 -3 P)
(MOVEM 1 -3 P)
(JRST 0 TAG1)
TAG4 (MOVE 1 0 P)
(SUB P (C 0 0 1 1))
(MOVE 1 -2 P)
(JUMPN 1 TAG37)
(MOVE 3 0 P)
(MOVE 2 -1 P)
(MOVE 1 -3 P)
(CALL 3 (E CL=PARTS))
(JRST 0 TAG28)
TAG37 (MOVE 2 0 P)
(MOVE 1 -1 P)
(CALL 2 (E *TIMES))
(MOVE 2 1)
(MOVE 1 -3 P)
(CALL 2 (E CLPARTS))
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG5 (MOVE 1 -7 P)
(JUMPE 1 TAG15)
(HLRZ@ 1 1)
(MOVE 2 1)
(MOVEM 1 -6 P)
(MOVE 1 -11 P)
(CALL 2 (E CLDIFF))
(MOVE 2 -10 P)
(CALL 2 (E CLPARTITIONS))
(MOVE 3 -8 P)
(MOVE 2 -9 P)
(MOVEM 1 -5 P)
(MOVE 1 -6 P)
(CALL 3 (E CL=PARTS))
(MOVEM 1 -3 P)
TAG6 (MOVE 1 -3 P)
(JUMPE 1 TAG12)
(HLRZ@ 1 1)
(MOVEM 1 -4 P)
(MOVE 1 -5 P)
(MOVEM 1 -1 P)
TAG7 (MOVE 1 -1 P)
(JUMPE 1 TAG10)
(HLRZ@ 1 1)
(MOVE 2 1)
(MOVEM 1 -2 P)
(MOVE 1 -4 P)
(CALL 2 (E *APPEND))
(MOVE 2 0 P)
(CALL 2 (E CONS))
(MOVEM 1 0 P)
TAG8
TAG9 (HRRZ@ 1 -1 P)
(MOVEM 1 -1 P)
(JRST 0 TAG7)
TAG10
TAG11 (HRRZ@ 1 -3 P)
(MOVEM 1 -3 P)
(JRST 0 TAG6)
TAG12
TAG13
TAG14 (HRRZ@ 1 -7 P)
(MOVEM 1 -7 P)
(JRST 0 TAG5)
TAG15 (MOVE 1 0 P)
(SUB P (C 0 0 8 8))
TAG28 (SUB P (C 0 0 2 2))
(JRST 0 TAG23)
TAG27 (HLRZ@ 2 0 P)
(MOVE 1 -1 P)
(CALL 2 (E CLPARTS))
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG16 (MOVE 1 -4 P)
(JUMPE 1 TAG22)
(HLRZ@ 1 1)
(MOVE 2 1)
(MOVEM 1 -3 P)
(MOVE 1 -6 P)
(CALL 2 (E CLDIFF))
(HRRZ@ 2 -5 P)
(CALL 2 (E CLPARTITIONS))
(MOVEM 1 -1 P)
TAG17 (MOVE 1 -1 P)
(JUMPE 1 TAG20)
(HLRZ@ 1 1)
(MOVE 2 -3 P)
(MOVEM 1 -2 P)
(CALL 2 (E XCONS))
(MOVE 2 0 P)
(CALL 2 (E CONS))
(MOVEM 1 0 P)
TAG18
TAG19 (HRRZ@ 1 -1 P)
(MOVEM 1 -1 P)
(JRST 0 TAG17)
TAG20
TAG21 (HRRZ@ 1 -4 P)
(MOVEM 1 -4 P)
(JRST 0 TAG16)
TAG22 (MOVE 1 0 P)
(SUB P (C 0 0 5 5))
TAG44
TAG23 (SUB P (C 0 0 2 2))
(POPJ P)
NIL
(LAP CLPARTS SUBR)
(PUSH P 1)
(PUSH P 2)
(CAIE 2 (QUOTE 0))
(JRST 0 TAG9)
(MOVEI 1 (QUOTE NIL))
(CALL 1 (E NCONS))
(JRST 0 TAG8)
TAG9 (HRRZ@ 1 1)
(JUMPN 1 TAG10)
(HLRZ@ 1 -1 P)
(HLRZ@ 1 1)
(CALL 2 (E CONS))
(CALL 1 (E NCONS))
(CALL 1 (E NCONS))
(JRST 0 TAG8)
TAG10 (HRRZ@ 1 -1 P)
(CALL 1 (E CLCOUNT))
(MOVE 2 1)
(MOVE 1 0 P)
(CALL 2 (E *DIF))
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(MOVEI 2 (QUOTE 0))
(CALL 2 (E *GREAT))
(JUMPE 1 TAG20)
(MOVEI 1 (QUOTE NIL))
(JRST 0 TAG19)
TAG20 (MOVE 2 -6 P)
(HRRZ@ 1 -7 P)
(CALL 2 (E CLPARTS))
TAG21
TAG19 (HLRZ@ 2 -7 P)
(HRRZ@ 2 2)
(MOVEM 1 0 P)
(MOVE 1 -6 P)
(CALL 2 (E MIN))
(MOVEI 2 (QUOTE 1))
(MOVEM 1 -3 P)
(MOVE 1 -5 P)
(CALL 2 (E MAX))
(MOVEM 1 -4 P)
TAG1 (MOVE 2 -3 P)
(MOVE 1 -4 P)
(CALL 2 (E *GREAT))
(JUMPN 1 TAG7)
(HRRZ@ 1 -7 P)
(MOVE 2 -4 P)
(PUSH P 1)
(MOVE 1 -7 P)
(CALL 2 (E *DIF))
(MOVE 2 1)
(POP P 1)
(CALL 2 (E CLPARTS))
(MOVEM 1 -1 P)
TAG2 (MOVE 1 -1 P)
(JUMPE 1 TAG5)
(HLRZ@ 1 1)
(MOVE 2 -4 P)
(MOVEM 1 -2 P)
(HLRZ@ 1 -7 P)
(HLRZ@ 1 1)
(CALL 2 (E CONS))
(MOVE 2 -2 P)
(CALL 2 (E CONS))
(MOVE 2 0 P)
(CALL 2 (E CONS))
(MOVEM 1 0 P)
TAG3
TAG4 (HRRZ@ 1 -1 P)
(MOVEM 1 -1 P)
(JRST 0 TAG2)
TAG5
TAG6 (MOVEI 2 (QUOTE 1))
(MOVE 1 -4 P)
(CALL 2 (E *PLUS))
(MOVEM 1 -4 P)
(JRST 0 TAG1)
TAG7 (MOVE 1 0 P)
(SUB P (C 0 0 6 6))
TAG11
TAG8 (SUB P (C 0 0 2 2))
(POPJ P)
NIL
(LAP CL=PARTS SUBR)
(PUSH P 1)
(PUSH P 2)
(PUSH P 3)
(HRRZ@ 1 1)
(JUMPN 1 TAG22)
(MOVE 2 3)
(HLRZ@ 1 -2 P)
(HLRZ@ 1 1)
(CALL 2 (E CONS))
(CALL 1 (E NCONS))
(MOVEM 1 -2 P)
(PUSH P (C 0 0 (QUOTE 1) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (MOVE 2 -3 P)
(MOVE 1 -1 P)
(CALL 2 (E *GREAT))
(JUMPN 1 TAG4)
(MOVE 2 0 P)
(MOVE 1 -4 P)
(CALL 2 (E CONS))
(MOVEM 1 0 P)
TAG2
TAG3 (MOVEI 2 (QUOTE 1))
(MOVE 1 -1 P)
(CALL 2 (E *PLUS))
(MOVEM 1 -1 P)
(JRST 0 TAG1)
TAG4 (MOVE 1 0 P)
(CALL 1 (E NCONS))
(SUB P (C 0 0 2 2))
(JRST 0 TAG21)
TAG22 (MOVE 4 0 P)
(MOVEI 3 (QUOTE 0))
(MOVE 2 -1 P)
(HLRZ@ 1 -2 P)
(HRRZ@ 1 1)
(CALL 4 (E NUMPARTITIONS))
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG5 (MOVE 1 -4 P)
(JUMPE 1 TAG20)
(HLRZ@ 1 1)
(MOVEM 1 -3 P)
(HRRZ@ 1 -7 P)
(PUSH P 1)
(PUSH P -4 P)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG6 (MOVE 2 -2 P)
(JUMPN 2 TAG37)
(JRST 0 TAG9)
TAG37 (HLRZ@ 2 -2 P)
(MOVEM 2 -1 P)
(PUSH P (C 0 0 TAG38 0))
(PUSH P -1 P)
(MOVE 1 -11 P)
(CALL 2 (E *DIF))
(CALL 1 (E NCONS))
(PUSH P 1)
(MOVNI 6 2)
(JCALL 14 (E NCONC))
TAG38 (MOVEM 1 0 P)
TAG7
TAG8 (HRRZ@ 2 -2 P)
(MOVEM 2 -2 P)
(JRST 0 TAG6)
TAG9 (MOVE 2 0 P)
(MOVE 1 -3 P)
(CALL 2 (E CLPARTITIONS))
(SUB P (C 0 0 4 4))
(MOVEM 1 -1 P)
TAG10 (MOVE 1 -1 P)
(JUMPE 1 TAG18)
(HLRZ@ 1 1)
(MOVEM 1 -2 P)
(PUSH P -3 P)
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG11 (MOVE 1 -4 P)
(JUMPE 1 TAG15)
(HLRZ@ 1 1)
(MOVEM 1 -2 P)
(MOVE 1 -3 P)
(JUMPE 1 TAG15)
(HLRZ@ 1 1)
(MOVEM 1 -1 P)
(PUSH P (C 0 0 TAG45 0))
(PUSH P -1 P)
(MOVE 1 -4 P)
(CAIE 1 (QUOTE 0))
(JRST 0 TAG47)
(MOVE 1 -3 P)
(JRST 0 TAG46)
TAG47 (MOVE 2 -4 P)
(HLRZ@ 1 -14 P)
(HLRZ@ 1 1)
(CALL 2 (E CONS))
(MOVE 2 -3 P)
(CALL 2 (E CONS))
TAG48
TAG46 (CALL 1 (E NCONS))
(PUSH P 1)
(MOVNI 6 2)
(JCALL 14 (E NCONC))
TAG45 (MOVEM 1 0 P)
TAG12
TAG13 (HRRZ@ 1 -3 P)
(MOVEM 1 -3 P)
TAG14 (HRRZ@ 1 -4 P)
(MOVEM 1 -4 P)
(JRST 0 TAG11)
TAG15 (MOVE 1 0 P)
(MOVE 2 -5 P)
(CALL 2 (E CONS))
(SUB P (C 0 0 5 5))
(MOVEM 1 0 P)
TAG16
TAG17 (HRRZ@ 1 -1 P)
(MOVEM 1 -1 P)
(JRST 0 TAG10)
TAG18
TAG19 (HRRZ@ 1 -4 P)
(MOVEM 1 -4 P)
(JRST 0 TAG5)
TAG20 (MOVE 1 0 P)
(SUB P (C 0 0 5 5))
TAG27
TAG21 (SUB P (C 0 0 3 3))
(POPJ P)
NIL
(LAP CLDIFF SUBR)
(PUSH P 1)
(PUSH P 2)
(JUMPN 2 TAG2)
(JRST 0 TAG1)
TAG2 (HLRZ@ 2 2)
(HLRZ@ 1 1)
(CALL 2 (E EQUAL))
(JUMPE 1 TAG3)
(HRRZ@ 2 0 P)
(HRRZ@ 1 -1 P)
(CALL 2 (E CLDIFF))
(JRST 0 TAG1)
TAG3 (HLRZ@ 1 0 P)
(HLRZ@ 1 1)
(HLRZ@ 2 -1 P)
(HLRZ@ 2 2)
(CAME 2 1)
(JRST 0 TAG4)
(HLRZ@ 1 -1 P)
(HLRZ@ 1 1)
(HLRZ@ 2 0 P)
(HRRZ@ 2 2)
(PUSH P 1)
(HLRZ@ 1 -2 P)
(HRRZ@ 1 1)
(CALL 2 (E *DIF))
(POP P 2)
(CALL 2 (E XCONS))
(HRRZ@ 2 0 P)
(PUSH P 1)
(HRRZ@ 1 -2 P)
(CALL 2 (E CLDIFF))
(POP P 2)
(CALL 2 (E XCONS))
(JRST 0 TAG1)
TAG4 (HLRZ@ 1 -1 P)
(MOVE 2 0 P)
(PUSH P 1)
(HRRZ@ 1 -2 P)
(CALL 2 (E CLDIFF))
(POP P 2)
(CALL 2 (E XCONS))
TAG5
TAG1 (SUB P (C 0 0 2 2))
(POPJ P)
NIL
(LAP CLCOUNT SUBR)
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE 0) 0))
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (MOVE 1 -1 P)
(JUMPE 1 TAG4)
(HLRZ@ 1 1)
(MOVE 2 -2 P)
(MOVEM 1 0 P)
(HRRZ@ 1 1)
(CALL 2 (E *PLUS))
(MOVEM 1 -2 P)
TAG2
TAG3 (HRRZ@ 1 -1 P)
(MOVEM 1 -1 P)
(JRST 0 TAG1)
TAG4 (MOVE 1 -2 P)
(SUB P (C 0 0 4 4))
(POPJ P)
NIL
(LAP CLPARTITIONSN SUBR)
(PUSH P 1)
(PUSH P 2)
(PUSH P 3)
(PUSH P 4)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(CALL 1 (E CLCOUNT))
(MOVE 4 -1 P)
(MOVE 3 -2 P)
(MOVE 2 -3 P)
(CALL 4 (E NUMPARTITIONS))
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (MOVE 1 -1 P)
(JUMPE 1 TAG4)
(HLRZ@ 1 1)
(MOVEM 1 0 P)
(PUSH P (C 0 0 TAG9 0))
(PUSH P -3 P)
(MOVE 2 1)
(MOVE 1 -8 P)
(CALL 2 (E CLPARTITIONS))
(PUSH P 1)
(MOVNI 6 2)
(JCALL 14 (E NCONC))
TAG9 (MOVEM 1 -2 P)
TAG2
TAG3 (HRRZ@ 1 -1 P)
(MOVEM 1 -1 P)
(JRST 0 TAG1)
TAG4 (MOVE 1 -2 P)
(SUB P (C 0 0 7 7))
(POPJ P)
NIL
(LAP CLCREATE SUBR)
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (MOVE 1 -2 P)
(JUMPE 1 TAG4)
(HLRZ@ 1 1)
(MOVE 2 -3 P)
(MOVEM 1 -1 P)
(CALL 2 (E CLINSERT))
(MOVEM 1 -3 P)
TAG2
TAG3 (HRRZ@ 1 -2 P)
(MOVEM 1 -2 P)
(JRST 0 TAG1)
TAG4 (MOVE 1 0 P)
(SUB P (C 0 0 3 3))
(MOVE 1 0 P)
(SUB P (C 0 0 2 2))
(POPJ P)
NIL
(LAP CLINSERT SUBR)
(PUSH P 1)
(PUSH P 2)
(JUMPN 2 TAG2)
(MOVEI 2 (QUOTE 1))
(CALL 2 (E CONS))
(CALL 1 (E NCONS))
(JRST 0 TAG1)
TAG2 (HLRZ@ 2 2)
(HLRZ@ 2 2)
(CALL 2 (E EQUAL))
(JUMPE 1 TAG3)
(HLRZ@ 1 0 P)
(PUSH P 1)
(HLRZ@ 1 -1 P)
(PUSH P 1)
(HRRZ@ 1 -1 P)
(CALL 1 (E ADD1))
(HRRM@ 1 0 P)
(MOVE 1 -2 P)
(SUB P (C 0 0 2 2))
(JRST 0 TAG1)
TAG3 (HLRZ@ 2 0 P)
(HLRZ@ 2 2)
(MOVE 1 -1 P)
(CALL 2 (E LEQ))
(JUMPE 1 TAG4)
(MOVEI 2 (QUOTE 1))
(MOVE 1 -1 P)
(CALL 2 (E CONS))
(MOVE 2 0 P)
(CALL 2 (E CONS))
(JRST 0 TAG1)
TAG4 (HRRZ@ 2 0 P)
(MOVE 1 -1 P)
(CALL 2 (E CLINSERT))
(HRRM@ 1 0 P)
(MOVE 1 0 P)
TAG5
TAG1 (SUB P (C 0 0 2 2))
(POPJ P)
NIL
(LAP CLEXPAND SUBR)
(PUSH P 1)
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (MOVE 1 -4 P)
(JUMPE 1 TAG7)
(HLRZ@ 1 1)
(MOVEM 1 -3 P)
(HRRZ@ 1 1)
(MOVEM 1 -1 P)
(MOVEI 1 (QUOTE 1))
(MOVEM 1 -2 P)
TAG2 (MOVE 2 -1 P)
(MOVE 1 -2 P)
(CALL 2 (E *GREAT))
(JUMPN 1 TAG5)
(PUSH P (C 0 0 TAG13 0))
(PUSH P -1 P)
(HLRZ@ 1 -5 P)
(CALL 1 (E NCONS))
(PUSH P 1)
(MOVNI 6 2)
(JCALL 14 (E NCONC))
TAG13 (MOVEM 1 0 P)
TAG3
TAG4 (MOVEI 2 (QUOTE 1))
(MOVE 1 -2 P)
(CALL 2 (E *PLUS))
(MOVEM 1 -2 P)
(JRST 0 TAG2)
TAG5
TAG6 (HRRZ@ 1 -4 P)
(MOVEM 1 -4 P)
(JRST 0 TAG1)
TAG7 (MOVE 1 0 P)
(SUB P (C 0 0 6 6))
(POPJ P)
NIL
(LAP GENRAD SUBR)
(PUSH P 1)
(HRRZ@ 1 1)
(JUMPN 1 TAG14)
(MOVEI 2 (QUOTE 1))
(HLRZ@ 1 0 P)
(HRRZ@ 1 1)
(CALL 2 (E EQUAL))
(JUMPE 1 TAG14)
(MOVEI 3 (QUOTE T))
(MOVEI 2 (QUOTE NIL))
(HLRZ@ 1 0 P)
(HLRZ@ 1 1)
(CALL 3 (E PERMRADS))
(JRST 0 TAG13)
TAG14 (PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P -1 P)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (MOVE 1 -6 P)
(JUMPE 1 TAG12)
(CALL 1 (E CAAR))
(MOVEI 2 (QUOTE 1))
(MOVEM 1 -5 P)
(CALL 2 (E CONS))
(CALL 1 (E NCONS))
(MOVE 2 1)
(MOVE 1 -8 P)
(CALL 2 (E CLDIFF))
(MOVEM 1 -4 P)
(CALL 1 (E CLCOUNT))
(PUSH P 1)
(MOVE 1 -6 P)
(CALL 1 (E VALENCE))
(CALL 1 (E SUB1))
(MOVE 2 1)
(POP P 1)
(CALL 2 (E MIN))
(MOVEM 1 -2 P)
(MOVEI 1 (QUOTE 1))
(MOVEM 1 -3 P)
TAG2 (MOVE 2 -2 P)
(MOVE 1 -3 P)
(CALL 2 (E *GREAT))
(JUMPN 1 TAG8)
(MOVE 2 -3 P)
(MOVE 1 -4 P)
(CALL 2 (E GENRADS))
(MOVEM 1 0 P)
TAG3 (MOVE 1 0 P)
(JUMPE 1 TAG6)
(HLRZ@ 1 1)
(MOVEM 1 -1 P)
(PUSH P (C 0 0 TAG24 0))
(PUSH P -8 P)
(MOVEI 3 (QUOTE T))
(MOVE 2 1)
(MOVE 1 -7 P)
(CALL 3 (E PERMRADS))
(PUSH P 1)
(MOVNI 6 2)
(JCALL 14 (E NCONC))
TAG24 (MOVEM 1 -7 P)
TAG4
TAG5 (HRRZ@ 1 0 P)
(MOVEM 1 0 P)
(JRST 0 TAG3)
TAG6
TAG7 (MOVEI 2 (QUOTE 1))
(MOVE 1 -3 P)
(CALL 2 (E *PLUS))
(MOVEM 1 -3 P)
(JRST 0 TAG2)
TAG8
TAG9
TAG10
TAG11 (HRRZ@ 1 -6 P)
(MOVEM 1 -6 P)
(JRST 0 TAG1)
TAG12 (MOVE 1 -7 P)
(SUB P (C 0 0 8 8))
TAG16
TAG13 (SUB P (C 0 0 1 1))
(POPJ P)
NIL
(LAP GENRADS SUBR)
(PUSH P 1)
(PUSH P 2)
(JUMPN 1 TAG6)
(CALL 1 (E NCONS))
(JRST 0 TAG5)
TAG6 (PUSH P (C 0 0 (QUOTE NIL) 0))
(MOVE 1 -2 P)
(CALL 1 (E CLCOUNT))
(MOVE 4 1)
(MOVEI 3 (QUOTE 1))
(MOVE 2 -1 P)
(MOVE 1 -2 P)
(CALL 4 (E CLPARTITIONSN))
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (MOVE 1 -1 P)
(JUMPE 1 TAG4)
(HLRZ@ 1 1)
(MOVEM 1 0 P)
(PUSH P (C 0 0 TAG13 0))
(PUSH P -3 P)
(CALL 1 (E GENRADLIST))
(PUSH P 1)
(MOVNI 6 2)
(JCALL 14 (E NCONC))
TAG13 (MOVEM 1 -2 P)
TAG2
TAG3 (HRRZ@ 1 -1 P)
(MOVEM 1 -1 P)
(JRST 0 TAG1)
TAG4 (MOVE 1 -2 P)
(SUB P (C 0 0 3 3))
TAG7
TAG5 (SUB P (C 0 0 2 2))
(POPJ P)
NIL
(LAP GENRADLIST SUBR)
(CALL 1 (E CLCREATE))
(CALL 1 (E GENRADLIST1))
(JCALL 1 (E GROUPRADS))
NIL
(LAP GENRADLIST1 SUBR)
(PUSH P 1)
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (MOVE 1 -2 P)
(JUMPE 1 TAG4)
(HLRZ@ 1 1)
(MOVEM 1 -1 P)
(PUSH P (C 0 0 TAG9 0))
(PUSH P -1 P)
(HLRZ@ 1 1)
(CALL 1 (E GENRAD))
(HRRZ@ 2 -3 P)
(CALL 2 (E CONS))
(CALL 1 (E NCONS))
(PUSH P 1)
(MOVNI 6 2)
(JCALL 14 (E NCONC))
TAG9 (MOVEM 1 0 P)
TAG2
TAG3 (HRRZ@ 1 -2 P)
(MOVEM 1 -2 P)
(JRST 0 TAG1)
TAG4 (MOVE 1 0 P)
(SUB P (C 0 0 4 4))
(POPJ P)
NIL
(LAP GROUPRADS SUBR)
(PUSH P 1)
(JUMPN 1 TAG2)
(CALL 1 (E NCONS))
(JRST 0 TAG1)
TAG2 (HLRZ@ 1 0 P)
(HRRZ@ 1 1)
(PUSH P 1)
(HLRZ@ 1 -1 P)
(HLRZ@ 1 1)
(PUSH P 1)
(HRRZ@ 1 -2 P)
(CALL 1 (E GROUPRADS))
(MOVE 3 1)
(MOVE 2 -1 P)
(POP P 1)
(CALL 3 (E GROUPRADS1))
(SUB P (C 0 0 1 1))
TAG3
TAG1 (SUB P (C 0 0 1 1))
(POPJ P)
NIL
(LAP GROUPRADS1 SUBR)
(PUSH P 1)
(PUSH P 2)
(PUSH P 3)
(CAIE 2 (QUOTE 0))
(JRST 0 TAG10)
(MOVE 1 3)
(JRST 0 TAG9)
TAG10 (PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG13
TAG2 (MOVE 1 -5 P)
(JUMPE 1 TAG8)
(MOVE 1 -4 P)
(CALL 1 (E SUB1))
(MOVE 3 -3 P)
(MOVE 2 1)
(MOVE 1 -5 P)
(CALL 3 (E GROUPRADS1))
(MOVEM 1 -1 P)
TAG3 (MOVE 1 -1 P)
(JUMPE 1 TAG6)
(HLRZ@ 1 1)
(MOVEM 1 -2 P)
(PUSH P (C 0 0 TAG18 0))
(PUSH P -1 P)
(HLRZ@ 2 -7 P)
(CALL 2 (E XCONS))
(CALL 1 (E NCONS))
(PUSH P 1)
(MOVNI 6 2)
(JCALL 14 (E NCONC))
TAG18 (MOVEM 1 0 P)
TAG4
TAG5 (HRRZ@ 1 -1 P)
(MOVEM 1 -1 P)
(JRST 0 TAG3)
TAG6
TAG7 (HRRZ@ 1 -5 P)
(MOVEM 1 -5 P)
(JRST 0 TAG2)
TAG8 (MOVE 1 0 P)
(SUB P (C 0 0 3 3))
TAG11
TAG9 (SUB P (C 0 0 3 3))
(POPJ P)
NIL
(LAP VALENCE SUBR)
(PUSH P 1)
(CALL 1 (E NUMBERP))
(JUMPE 1 TAG2)
(MOVE 1 0 P)
(JRST 0 TAG1)
TAG2 (MOVE 1 0 P)
(CALL 1 (E ATOM))
(JUMPE 1 TAG3)
(MOVEI 2 (QUOTE VALENCE))
(MOVE 1 0 P)
(CALL 2 (E GET))
(JRST 0 TAG1)
TAG3 (MOVE 1 0 P)
(CALL 1 (E FREEVALENCESIZE))
TAG4
TAG1 (SUB P (C 0 0 1 1))
(POPJ P)
NIL
(LAP GENMOL SUBR)
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(CALL 1 (E CLCOUNT))
(MOVEI 2 (QUOTE 1))
(MOVEM 1 -2 P)
(CALL 2 (E EQUAL))
(JUMPE 1 TAG27)
(MOVEI 3 (QUOTE NIL))
(MOVEI 2 (QUOTE NIL))
(HLRZ@ 1 -3 P)
(HLRZ@ 1 1)
(CALL 3 (E PERMRADS))
(JRST 0 TAG23)
TAG27 (MOVEI 2 (QUOTE 2))
(MOVE 1 -2 P)
(CALL 2 (E REMAINDER))
(CAIE 1 (QUOTE 0))
(JRST 0 TAG28)
(MOVEI 2 (QUOTE 2))
(MOVE 1 -2 P)
(CALL 2 (E *QUO))
(MOVE 3 1)
(MOVEI 2 (QUOTE 2))
(MOVE 1 -3 P)
(CALL 3 (E CL=PARTS))
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (MOVE 1 -4 P)
(JUMPE 1 TAG7)
(HLRZ@ 1 1)
(MOVEM 1 -3 P)
(CALL 1 (E GENRADLIST))
(MOVEM 1 -1 P)
TAG2 (MOVE 1 -1 P)
(JUMPE 1 TAG5)
(HLRZ@ 1 1)
(MOVEI 3 (QUOTE NIL))
(MOVE 2 1)
(MOVEM 1 -2 P)
(MOVEI 1 (QUOTE NIL))
(CALL 3 (E PERMRADS))
(MOVE 2 -6 P)
(CALL 2 (E *APPEND))
(MOVEM 1 -6 P)
TAG3
TAG4 (HRRZ@ 1 -1 P)
(MOVEM 1 -1 P)
(JRST 0 TAG2)
TAG5
TAG6 (HRRZ@ 1 -4 P)
(MOVEM 1 -4 P)
(JRST 0 TAG1)
TAG7 (MOVE 1 0 P)
(MOVEI 1 (QUOTE 3))
(MOVEM 1 -5 P)
(SUB P (C 0 0 5 5))
(JRST 0 TAG26)
TAG28 (MOVEI 1 (QUOTE 2))
(MOVEM 1 0 P)
TAG34
TAG26 (MOVE 1 -2 P)
(CALL 1 (E SUB1))
(MOVEM 1 -2 P)
(PUSH P -3 P)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG8 (MOVE 1 -10 P)
(JUMPE 1 TAG22)
(HLRZ@ 1 1)
(MOVEM 1 -9 P)
(HLRZ@ 1 1)
(MOVEI 2 (QUOTE 1))
(MOVEM 1 -8 P)
(CALL 2 (E CONS))
(CALL 1 (E NCONS))
(MOVE 2 1)
(MOVE 1 -14 P)
(CALL 2 (E CLDIFF))
(MOVEM 1 -7 P)
(MOVE 1 -8 P)
(CALL 1 (E VALENCE))
(MOVE 2 -13 P)
(CALL 2 (E MIN))
(MOVEM 1 -5 P)
(MOVE 1 -11 P)
(MOVEM 1 -6 P)
TAG9 (MOVE 2 -5 P)
(MOVE 1 -6 P)
(CALL 2 (E *GREAT))
(JUMPN 1 TAG18)
(MOVEI 2 (QUOTE 2))
(MOVE 1 -13 P)
(CALL 2 (E *QUO))
(MOVE 4 1)
(MOVEI 3 (QUOTE 1))
(MOVE 2 -6 P)
(MOVE 1 -7 P)
(CALL 4 (E CLPARTITIONSN))
(MOVEM 1 -3 P)
TAG10 (MOVE 1 -3 P)
(JUMPE 1 TAG16)
(HLRZ@ 1 1)
(MOVEM 1 -4 P)
(CALL 1 (E GENRADLIST))
(MOVEM 1 -1 P)
TAG11 (MOVE 1 -1 P)
(JUMPE 1 TAG14)
(HLRZ@ 1 1)
(MOVEM 1 -2 P)
(PUSH P (C 0 0 TAG43 0))
(MOVEI 3 (QUOTE NIL))
(MOVE 2 1)
(MOVE 1 -9 P)
(CALL 3 (E PERMRADS))
(PUSH P 1)
(PUSH P -14 P)
(MOVNI 6 2)
(JCALL 14 (E NCONC))
TAG43 (MOVEM 1 -12 P)
TAG12
TAG13 (HRRZ@ 1 -1 P)
(MOVEM 1 -1 P)
(JRST 0 TAG11)
TAG14
TAG15 (HRRZ@ 1 -3 P)
(MOVEM 1 -3 P)
(JRST 0 TAG10)
TAG16
TAG17 (MOVEI 2 (QUOTE 1))
(MOVE 1 -6 P)
(CALL 2 (E *PLUS))
(MOVEM 1 -6 P)
(JRST 0 TAG9)
TAG18
TAG19
TAG20
TAG21 (HRRZ@ 1 -10 P)
(MOVEM 1 -10 P)
(JRST 0 TAG8)
TAG22 (MOVE 1 0 P)
(SUB P (C 0 0 11 11))
(MOVE 1 -1 P)
TAG23 (SUB P (C 0 0 4 4))
(POPJ P)
NIL
(LAP NUMPARTITIONS* SUBR)
(PUSH P 1)
(PUSH P 2)
(PUSH P 3)
(PUSH P 4)
(HRRZ@ 1 4)
(JUMPN 1 TAG14)
(HLRZ@ 4 3)
(EXCH 3 2)
(HLRZ@ 2 0 P)
(MOVE 1 -3 P)
(CALL 4 (E NUMPARTITIONS))
(JRST 0 TAG13)
TAG14 (HLRZ@ 1 -1 P)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P 1)
(HRRZ@ 1 -6 P)
(CALL 1 (E PLUSLIST))
(MOVE 2 1)
(MOVE 1 -9 P)
(CALL 2 (E *DIF))
(HLRZ@ 2 -6 P)
(CALL 2 (E *QUO))
(MOVE 2 1)
(POP P 1)
(CALL 2 (E MIN))
(MOVEM 1 -3 P)
(HLRZ@ 1 -5 P)
(CALL 1 (E SUB1))
(HLRZ@ 2 -6 P)
(CALL 2 (E *TIMES))
(HRRZ@ 2 -6 P)
(PUSH P 2)
(HRRZ@ 2 -6 P)
(PUSH P 2)
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (MOVE 2 -4 P)
(JUMPN 2 TAG24)
(JRST 0 TAG5)
TAG24 (HLRZ@ 2 -4 P)
(MOVEM 2 -1 P)
(MOVE 2 -3 P)
(JUMPN 2 TAG26)
(JRST 0 TAG5)
TAG26 (HLRZ@ 2 -3 P)
(MOVEM 2 0 P)
(MOVE 1 -1 P)
(CALL 2 (E *TIMES))
(MOVE 2 -2 P)
(CALL 2 (E *PLUS))
(MOVEM 1 -2 P)
TAG2
TAG3 (HRRZ@ 2 -3 P)
(MOVEM 2 -3 P)
TAG4 (HRRZ@ 2 -4 P)
(MOVEM 2 -4 P)
(JRST 0 TAG1)
TAG5 (MOVE 2 -2 P)
(MOVE 1 -13 P)
(CALL 2 (E *DIF))
(MOVE 2 1)
(MOVE 1 -12 P)
(CALL 2 (E MAX))
(CALL 1 (E FIX+))
(SUB P (C 0 0 5 5))
(MOVEM 1 -4 P)
TAG6 (MOVE 2 -3 P)
(MOVE 1 -4 P)
(CALL 2 (E *GREAT))
(JUMPN 1 TAG12)
(MOVEI 2 (QUOTE 1))
(HLRZ@ 1 -5 P)
(CALL 2 (E EQUAL))
(JUMPE 1 TAG29)
(MOVE 2 -4 P)
(MOVE 1 -8 P)
(CALL 2 (E *DIF))
(HRRZ@ 4 -5 P)
(HRRZ@ 3 -6 P)
(MOVEI 2 (QUOTE 1))
(CALL 4 (E NUMPARTITIONS*))
(JRST 0 TAG28)
TAG29 (MOVE 2 -4 P)
(MOVE 1 -8 P)
(CALL 2 (E *DIF))
(PUSH P 1)
(HLRZ@ 1 -6 P)
(CALL 1 (E SUB1))
(HRRZ@ 2 -6 P)
(CALL 2 (E CONS))
(MOVE 4 1)
(MOVE 3 -7 P)
(MOVE 2 -5 P)
(POP P 1)
(CALL 4 (E NUMPARTITIONS*))
TAG30
TAG28 (MOVEM 1 -1 P)
TAG7 (MOVE 1 -1 P)
(JUMPE 1 TAG10)
(HLRZ@ 1 1)
(MOVE 2 -4 P)
(MOVEM 1 -2 P)
(CALL 2 (E XCONS))
(MOVE 2 0 P)
(CALL 2 (E CONS))
(MOVEM 1 0 P)
TAG8
TAG9 (HRRZ@ 1 -1 P)
(MOVEM 1 -1 P)
(JRST 0 TAG7)
TAG10
TAG11 (MOVEI 2 (QUOTE 1))
(MOVE 1 -4 P)
(CALL 2 (E *PLUS))
(MOVEM 1 -4 P)
(JRST 0 TAG6)
TAG12 (MOVE 1 0 P)
(SUB P (C 0 0 5 5))
TAG15
TAG13 (SUB P (C 0 0 4 4))
(POPJ P)
NIL
(LAP GROUPBY SUBR)
(PUSH P 1)
(PUSH P 2)
(MOVE 1 2)
(JUMPE 1 TAG1)
(HRRZ@ 2 0 P)
(MOVE 1 -1 P)
(CALL 2 (E GROUPBY))
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(HLRZ@ 1 -3 P)
(CALLF@ 1 -4 P)
(MOVEI 3 (QUOTE NIL))
(MOVE 2 -2 P)
(MOVEM 1 0 P)
(CALL 3 (E LMASSOC))
(MOVEM 1 -1 P)
(JUMPN 1 TAG8)
(HLRZ@ 1 -3 P)
(CALL 1 (E NCONS))
(MOVE 2 0 P)
(CALL 2 (E XCONS))
(MOVE 2 -2 P)
(CALL 2 (E CONS))
(JRST 0 TAG4)
TAG8 (PUSH P (C 0 0 TAG11 0))
(PUSH P -2 P)
(HLRZ@ 1 -5 P)
(CALL 1 (E NCONS))
(PUSH P 1)
(MOVNI 6 2)
(JCALL 14 (E NCONC))
TAG11 (MOVE 1 -2 P)
(JRST 0 TAG4)
TAG9 (MOVEI 1 (QUOTE NIL))
TAG4 (SUB P (C 0 0 3 3))
TAG2
TAG1 (SUB P (C 0 0 2 2))
(POPJ P)
NIL
(LAP FVPARTITION1 SUBR)
(PUSH P 1)
(PUSH P 2)
(PUSH P 3)
(JUMPN 2 TAG18)
(MOVEI 1 (QUOTE NIL))
(CALL 1 (E NCONS))
(JRST 0 TAG17)
TAG18 (PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE 0) 0))
(HRRZ@ 1 -3 P)
(PUSH P 1)
(MOVE 1 -3 P)
(CALL 1 (E ADD1))
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (MOVE 1 -2 P)
(JUMPE 1 TAG5)
(HLRZ@ 1 1)
(MOVEM 1 0 P)
(MOVEI 2 (QUOTE 9999999))
(MOVE 1 -1 P)
(CALL 2 (E *GREAT))
(JUMPN 1 TAG5)
(MOVE 2 0 P)
(MOVE 1 -1 P)
(CALL 2 (E *TIMES))
(MOVE 2 -3 P)
(CALL 2 (E *PLUS))
(MOVEM 1 -3 P)
TAG2
TAG3 (MOVEI 2 (QUOTE 1))
(MOVE 1 -1 P)
(CALL 2 (E *PLUS))
(MOVEM 1 -1 P)
TAG4 (HRRZ@ 1 -2 P)
(MOVEM 1 -2 P)
(JRST 0 TAG1)
TAG5 (MOVE 1 -3 P)
(SUB P (C 0 0 4 4))
(MOVEM 1 0 P)
(MOVE 2 -1 P)
(HLRZ@ 1 -2 P)
(CALL 2 (E *TIMES))
(MOVE 2 1)
(MOVE 1 -3 P)
(CALL 2 (E MIN))
(MOVE 2 0 P)
(PUSH P 1)
(MOVE 1 -4 P)
(CALL 2 (E *DIF))
(MOVE 2 1)
(MOVEI 1 (QUOTE 0))
(CALL 2 (E MAX))
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG6 (MOVE 2 -7 P)
(MOVE 1 -6 P)
(CALL 2 (E *GREAT))
(JUMPN 1 TAG16)
(MOVE 2 -6 P)
(MOVE 1 -11 P)
(CALL 2 (E *DIF))
(PUSH P 1)
(HRRZ@ 1 -11 P)
(PUSH P 1)
(MOVE 1 -11 P)
(CALL 1 (E ADD1))
(MOVE 3 1)
(POP P 2)
(POP P 1)
(CALL 3 (E FVPARTITION1))
(MOVE 3 -9 P)
(HLRZ@ 2 -10 P)
(MOVEM 1 -5 P)
(MOVE 1 -6 P)
(CALL 3 (E FVPART1))
(MOVEM 1 -3 P)
TAG7 (MOVE 1 -3 P)
(JUMPE 1 TAG13)
(HLRZ@ 1 1)
(MOVEM 1 -4 P)
(MOVE 1 -5 P)
(MOVEM 1 -1 P)
TAG8 (MOVE 1 -1 P)
(JUMPE 1 TAG11)
(HLRZ@ 1 1)
(MOVE 2 -4 P)
(MOVEM 1 -2 P)
(CALL 2 (E XCONS))
(MOVE 2 0 P)
(CALL 2 (E CONS))
(MOVEM 1 0 P)
TAG9
TAG10 (HRRZ@ 1 -1 P)
(MOVEM 1 -1 P)
(JRST 0 TAG8)
TAG11
TAG12 (HRRZ@ 1 -3 P)
(MOVEM 1 -3 P)
(JRST 0 TAG7)
TAG13
TAG14
TAG15 (MOVEI 2 (QUOTE 1))
(MOVE 1 -6 P)
(CALL 2 (E *PLUS))
(MOVEM 1 -6 P)
(JRST 0 TAG6)
TAG16 (MOVE 1 0 P)
(SUB P (C 0 0 9 9))
TAG19
TAG17 (SUB P (C 0 0 3 3))
(POPJ P)
NIL
(LAP FVPART1 SUBR)
(PUSH P 1)
(PUSH P 2)
(PUSH P 3)
(CAIE 3 (QUOTE 0))
(JRST 0 TAG9)
(MOVEI 1 (QUOTE NIL))
(CALL 1 (E NCONS))
(JRST 0 TAG8)
TAG9 (MOVE 2 0 P)
(MOVE 1 -2 P)
(CALL 2 (E *QUO))
(MOVE 2 1)
(MOVE 1 -1 P)
(CALL 2 (E MIN))
(PUSH P 1)
(MOVE 1 -1 P)
(CALL 1 (E SUB1))
(MOVE 2 -2 P)
(CALL 2 (E *TIMES))
(MOVE 2 1)
(MOVE 1 -3 P)
(CALL 2 (E *DIF))
(MOVE 2 1)
(MOVEI 1 (QUOTE 0))
(CALL 2 (E MAX))
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (MOVE 2 -4 P)
(MOVE 1 -3 P)
(CALL 2 (E *GREAT))
(JUMPN 1 TAG7)
(MOVE 2 -5 P)
(MOVE 1 -3 P)
(CALL 2 (E *TIMES))
(MOVE 2 1)
(MOVE 1 -7 P)
(CALL 2 (E *DIF))
(MOVE 2 -3 P)
(PUSH P 1)
(MOVE 1 -7 P)
(CALL 2 (E *DIF))
(PUSH P 1)
(MOVE 1 -7 P)
(CALL 1 (E SUB1))
(MOVE 3 1)
(POP P 2)
(POP P 1)
(CALL 3 (E FVPART1))
(MOVEM 1 -1 P)
TAG2 (MOVE 1 -1 P)
(JUMPE 1 TAG5)
(HLRZ@ 1 1)
(MOVE 2 -3 P)
(MOVEM 1 -2 P)
(CALL 2 (E XCONS))
(MOVE 2 0 P)
(CALL 2 (E CONS))
(MOVEM 1 0 P)
TAG3
TAG4 (HRRZ@ 1 -1 P)
(MOVEM 1 -1 P)
(JRST 0 TAG2)
TAG5
TAG6 (MOVEI 2 (QUOTE 1))
(MOVE 1 -3 P)
(CALL 2 (E *PLUS))
(MOVEM 1 -3 P)
(JRST 0 TAG1)
TAG7 (MOVE 1 0 P)
(SUB P (C 0 0 5 5))
TAG10
TAG8 (SUB P (C 0 0 3 3))
(POPJ P)
NIL
(LAP MINLOOPS SUBR)
(PUSH P 1)
(MOVEI 2 (QUOTE 0))
(PUSH P 2)
(PUSH P 2)
(HRRZ@ 2 1)
(PUSH P (C 0 0 (QUOTE 3) 0))
(PUSH P 2)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (MOVE 2 -2 P)
(JUMPE 2 TAG5)
(HLRZ@ 2 2)
(MOVEM 2 -1 P)
(MOVEI 2 (QUOTE 999999))
(MOVE 1 -3 P)
(CALL 2 (E *GREAT))
(JUMPN 1 TAG5)
(MOVE 1 -1 P)
(CAIN 1 (QUOTE 0))
(JRST 0 TAG3)
(MOVE 2 -4 P)
(MOVE 1 -3 P)
(CALL 2 (E *GREAT))
(JUMPE 1 TAG16)
(MOVE 2 -3 P)
(MOVEM 2 -4 P)
TAG16 (MOVE 2 -3 P)
(MOVE 1 -1 P)
(CALL 2 (E *TIMES))
(MOVE 2 -5 P)
(CALL 2 (E *PLUS))
(MOVEM 1 -5 P)
TAG2
TAG3 (MOVEI 2 (QUOTE 1))
(MOVE 1 -3 P)
(CALL 2 (E *PLUS))
(MOVEM 1 -3 P)
TAG4 (HRRZ@ 2 -2 P)
(MOVEM 2 -2 P)
(JRST 0 TAG1)
TAG5 (MOVE 2 0 P)
(SUB P (C 0 0 4 4))
(MOVE 2 -1 P)
(MOVE 1 0 P)
(CALL 2 (E *DIF))
(MOVEI 2 (QUOTE 2))
(CALL 2 (E *QUO))
(MOVE 2 1)
(MOVEI 1 (QUOTE 0))
(SUB P (C 0 0 3 3))
(JCALL 2 (E MAX))
NIL
(LAP MAXLOOPS SUBR)
(PUSH P 1)
(HLRZ@ 1 1)
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE 0) 0))
(HRRZ@ 1 -2 P)
(HRRZ@ 1 1)
(PUSH P (C 0 0 (QUOTE 2) 0))
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (MOVE 1 -1 P)
(JUMPN 1 TAG10)
(JRST 0 TAG5)
TAG10 (HLRZ@ 1 -1 P)
(MOVEM 1 0 P)
(MOVEI 2 (QUOTE 99999))
(MOVE 1 -2 P)
(CALL 2 (E *GREAT))
(JUMPE 1 TAG12)
(JRST 0 TAG5)
TAG12 (MOVE 2 0 P)
(MOVEI 1 (QUOTE 0.5))
(CALL 2 (E *TIMES))
(MOVE 2 -2 P)
(CALL 2 (E *TIMES))
(MOVE 2 -3 P)
(CALL 2 (E *PLUS))
(MOVEM 1 -3 P)
TAG2
TAG3 (MOVEI 2 (QUOTE 1))
(MOVE 1 -2 P)
(CALL 2 (E *PLUS))
(MOVEM 1 -2 P)
TAG4 (HRRZ@ 1 -1 P)
(MOVEM 1 -1 P)
(JRST 0 TAG1)
TAG5 (MOVE 1 -3 P)
(CALL 1 (E FIX+))
(MOVE 2 1)
(EXCH 1 -4 P)
(SUB P (C 0 0 6 6))
(JCALL 2 (E MIN))
NIL